www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/Count/sAdmin_SiteAdd.asp

    <!--#include file="inc_config.asp"-->
<!--#include file="inc_Lang_admin.asp"-->
<!--#include file="style/style_all.asp"-->
<!--#include file="inc_admin_functions.asp"-->
<!--#include file="inc_conn.asp"-->

<%

tTitle = Lang_sAdmin_Me & "-" & Lang_Add

Response.Write replace(Style_Header,"$Title",tTitle)
Response.Write replace(Style_Admin_Top,"$Lang_Admin",Lang_sAdmin_Me)
Response.Write replace(Style_Tips,"$Tips",Lang_Add_Tips)

Response.Write replace(Style_MainTop,"$MainName",Lang_Add)

if Request("SiteName")<>"" then

SiteName	= Trim(Request("SiteName"))
EngName		= Trim(Request("EngName"))
SiteURL		= Trim(Request("SiteURL"))
MaName		= Trim(Request("MaName"))
MaTZ		= Trim(Request("MaTZ"))
MaLang		= Trim(Request("MaLang"))
BS			= Trim(Request("BS"))
SIPS		= clng(Trim(Request("SIPS")))
StatCan		= replace(Trim(Request("StatCan"))," ","")

if BS="" then BS=0
if MaTZ="" then MaTZ=CFG_ZoneServer
if maLang="" then malang="ENG"
if SIPS<20 then SIPS=20
if SIPS>300 then SIPS=300

' 写入数据库
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from site where (site_id is null)"
rs.Open sql,conn,3,3

rs.AddNew 
rs("S_Name")	= SiteName
rs("S_Name_ENG")	= EngName
rs("S_URL1")	= SiteURL
rs("S_MasterName")	= MaName
rs("S_MasterTimeZone")	= MaTZ
rs("S_MasterLang")	= MaLang
rs("S_BigSite")	= BS
rs("S_KillRefresh")	= SIPS
rs("S_MasterUname") = "admin"
rs("S_MasterPassword") = "admin"
rs("S_Can") = StatCan

rs.Update
rs.close
set rs=nothing

set rs=conn.execute("select max(site_id) from site")

%>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="400">
<tr><td><%=replace(Lang_Add_ok,"$ID",rs(0))%></td></tr>
</table>

<%

else

%>
<table align="center" border="0" cellpadding="0" cellspacing="0">
  <form action="sAdmin_SiteAdd.asp" method="post">
  <tr>
    <td>
      <br><font class="fonts"><%=Lang_Add_Base%></font>
      <br><br>
      <table>
        <tr><td><%=Lang_Add_SiteName%>: </td><td><input name="SiteName" size="20" class="input"></td></tr>
        <tr><td><%=Lang_Add_EngName%>: </td><td><input name="EngName" size="20" class="input"></td></tr>
        <tr><td><%=Lang_Add_SiteURL1%>: </td><td><input name="SiteURL" size="40" class="input"></td></tr>
        <tr><td><%=Lang_Add_MaName%>: </td><td><input name="MaName" size="12" class="input">
        &nbsp;<%=Lang_Add_MaTimeZone%>: <input name="MaTZ" size="5" class="input">
        &nbsp;<%=Lang_Add_MaLang%>: <SELECT name="MaLang" class="input"><%=Lang_Add_LangList%></SELECT></td></tr>
      </table>
      <br><br><font class="fonts"><%=Lang_Add_Option%></font>
      <br><br>
      <table>
        <tr><td><%=Lang_Add_Mode%> </td><td><INPUT type="radio" name="BS" value="0" checked><%=Lang_Add_N%><br><INPUT type="radio" name="BS" value="1"><%=Lang_Add_B%></td></tr>
        <tr><td><%=Lang_Add_SaveIPs%> </td><td><input name="SIPS" value="50" size="5" class="input"></td></tr>
      </table>
      <br>
      <table align="center">
        <tr class="fonts"><td><%=Lang_AE_Item%></td><td><%=Lang_AE_Can%></td></tr>
        <tr><td colspan="2"><hr class="fonts" size="1"></td></tr>
<%
for i = 0 to ubound(Lang_AE_)
  Response.Write "<tr><td>"& i & ". " &Lang_AE_(i)&"</td><td align=""center""><input name=""StatCan"" value="""&i&""" type=""checkbox"""
  if i<6 or i>8 then Response.Write " checked"
  Response.Write "></td></tr>" & vbcrlf
next
%>
      </table>
      <br><br><%=Lang_Add_submit%>
    </td>
  </tr>
  </form>
</table>
<%
end if

Response.Write Style_MainBottom

Response.Write Style_Bottom
%>